home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ham Radio 2000
/
Ham Radio 2000.iso
/
ham2000
/
misc
/
nshadow
/
shadow-2.bas
< prev
next >
Wrap
BASIC Source File
|
1994-06-23
|
1KB
|
45 lines
1 PRINT " ***TIME WHEN THE SUN IS ON THE MERIDIAN***"
2 PRINT:PRINT
3 PRINT " IN STEP 50 ENTER THE EQUATION OF TIME"
4 PRINT " FOR THE MONTH AND DATE NUMBER SELECTED"
5 PRINT " (+) IS Fast AND (-) IS Slow"
6 PRINT " MAXIMUM ERROR WHEN USING TABLE 10 IS ABOUT .08 DEGREE"
10 PRINT:PRINT
15 INPUT "ENTER THE MONTH AND DAY NUMBER: MO, DA"; MO,DA
20 INPUT "ENTER LOCAL TIME ZONE + OR - T"; T
25 INPUT "ENTER LOCAL LONGITUDE: DA, MN, East or West"; LO,LN,DA$
30 A=LO+LN/60
35 IF DA$="E" THEN A=-A
40 B=A/15
45 C=B+12
50 INPUT "ENTER THE EQUATION OF TIME FROM THE TABLE:MN, SEC, Fast or Slow"; M, S, DB$
55 AA=S/60
60 BB=M+AA
65 E=BB/60
70 IF DB$="F" THEN E=-E
75 PRINT:PRINT
80 PRINT " ***ANSWERS***"
85 PRINT
90 PRINT M;S;DB$ " EQUATION OF TIME IN MINUTES AND SECONDS"
91 PRINT " FROM TABLE"
92 PRINT
95 PRINT E " EQUATION OF TIME IN DECIMAL DEGREES"
96 PRINT
100 PRINT MO;DA " MONTH AND DAY"
101 PRINT
105 PRINT LO;LN;DA$ " LOCAL LONGITUDE"
110 F=C+E
115 G=INT(F)
120 H=F-G
125 I=H*60
130 J=INT(I)
135 K=I-J
140 L=K*60
145 N=INT(L)
150 PRINT:PRINT
155 PRINT G;J;N " GMT WHEN THE SUN IS ON THE LOCAL MERIDIAN"
160 GL=G+T
165 PRINT
170 PRINT GL;J;N " LOCAL TIME WHEN THE SUN IS ON THE MERIDIAN"
175 PRINT " SHADOW POINTS DIRECTLY NORTH"